Szövegfájlból (eredeti.txt) beolvasott sorok kiírása egy új fájlba (rendes.txt) rendezetten (RendezoMasolo.pas)

program RendezoMasolo;
uses crt;
var i,j,n:integer;
    f,g:text;
    s:string;
    sorok:array [1..100] of string;

procedure cserel(k,j:integer);
var x:string;
begin
   x:=sorok[k];
   sorok[k]:=sorok[j];
   sorok[j]:=x;
   end;

BEGIN
   clrscr;
   assign (f,'eredeti.txt');
   assign (g,'rendes.txt');
   reset(f);
   rewrite(g);
   i:=1;
   while (not eof(f)) do begin
      readln(f,s);
      sorok[i]:=s;
      i:=i+1;
      end;
   n:=i-1;
   for i:=1 to n-1 do
      for j:=i+1 to n do
         if (sorok[i]>sorok[j]) then
            cserel(i,j);

   for i:=1 to n do
      writeln(g,sorok[i]);

   close(f);
   close(g);
END.